10 REM HOW MANY?             JULY 1980
20 POKE53280,7:POKE53281,1:GOTO40
30 Y=INT(RND(1)*15)+2:RETURN
40 PRINT"[147]"
50 FORX=1TO10:PRINT:A=INT(RND(1)*10)+1
60 GOSUB30:POKE646,Y
70 ONAGOSUB680,690,710,730,750,770,790,810,830,850
80 PRINT" WIE VIEL ?"
90 GOSUB 530:R=VAL(IN$)
100 IFA<>RTHENGOSUB230:GOTO70
110 GOSUB 380
120 NEXT
130 FORZ=1TO80:PRINT"[150]SMILE [211][211]  [218][218][218]  ";:NEXT
140 PRINT"  DU HAST NUR";F;"[157]MAL FALSCH GEZAEHLT!"
150 PRINT"  ";ZE;"[157]MAL HAST DU LAENGER ALS":PRINT"     5 SEKUNDEN GEBRAUCHT."
160 PU=PU+100-((F*5)+(ZE*3)):IFPU<0THENPU=0
170 PRINT" DIES BRINGT DIR ";PU;"[146]PUNKTE !"
180 PRINT"    MOECHTEST DU NOCHMAL ZAEHLEN ?"
190 PRINT"    J=JA / N=NEIN"
200 GETZ$:IFZ$=""THEN200
210 IFZ$="J"THENF=0:ZE=0:GOTO40
220 PRINT"    TSCHUESSI !":END
230 F=F+1:PRINT""
240 PRINT"[144]           [166][166][166][166][166]
250 [153]"STOP          SPC((null)(null)(null)(null)(null)SPC(
260 PRINT"[144]         [166][203][203][203][203][203][203][203][166]
270 [153]"STOP        SPC((null)(null)(null)(null)MID$MID$MID$MID$MID$SPC(
280 PRINT"[149]      [206][166]           [166][205]
290 [153]"VERIFY     (null) SPC(STOP  (null)LENRIGHT$CLOSE(null)LENRIGHT$ VERIFYCLOSESPC(CLOSE(null)
300 PRINT"[149]     [165] [166] [144] [212][159]*[144][217] [199][159]*[144][217] [149] [166]  [165]
310 [153]"     FN SPC( STOP MID$TO(null) MID$ASC(null)VERIFY  SPC(  FN
320 PRINT"     [205] [166]  [156]   [209]  [149]   [166] [206]
330 [153]"      TAB(SPC( DEF  TOTOTOTOTO VERIFY  SPC(TAB(
340 PRINT"        [166][150] [206]     [205][149][160][166]
350 [153]"        SPC(         SPC(
360 PRINT"         [166][166]     [166][166]
370 [153]"           SPC(SPC(SPC(SPC(SPC(":[142]
380 [153]""
390 [153]" STOP          SPC(SPC(SPC(SPC(SPC(
400 PRINT" [144]         [166]@@@@@[166]
410 [153]" STOP        SPC(@@@@@@@SPC(
420 PRINT" [144]       [166]         [166]
430 [153]" FOR     (null)SPC(           SPC((null)
440 PRINT" [129]    [206] [166]  [213][195][201][160][213][195][201][129][160][160][166][160][205]
450 [153]" FOR    FN SPC(  (null)CONT*(null) CHR$CONT*(null)FOR  SPC(  FN
460 PRINT" [129]    [165] [166]  [202][164][203] [202][198][203][129]  [166]  [165]
470 [153]" FOR    (null) SPC(   SYS  (null)FOR     SPC( (null)
480 PRINT" [129]     [163][166][150] [205]      [206] [129] [166][163]
490 [153]" FOR       SPC(DEF (null)TOTOTOTO(null)CLOSEFORCLOSESPC(
500 PRINT"         [166]       [166]
510 [153]"          SPC(     SPC(
520 PRINT"           [166][166][166][166][166]":RETURN
530 TI$="000000"
540 IN$=" ":ZT=TI:ZC=2:ZD$=CHR$(20)
550 CR$=CHR$(13):PRINT" ";
560 GETZ3$:IFZ3$<>""THEN590
570 IFZT<=TITHENPRINTMID$(" [166]",ZC,1);"[157]";:ZC=3-ZC:ZT=TI+15
580 GOTO560
590 IFTI$>"000005"THENZE=ZE+1
600 Z=ASC(Z3$):ZL=LEN(IN$):IF(ZAND127)<32THENPRINT" [157]";:GOTO640
610 IFFLAND(ZAND127)>64AND(ZAND127)<91THENZ3$=CHR$((Z+128)AND255)
620 IFZL>254THEN560
630 IN$=IN$+Z3$:PRINTZ3$;ZD$;Z3$;
640 IFZ=13THENIN$=MID$(IN$,2):PRINTCR$;:RETURN
650 IFZ=20ANDZL>1THENIN$=LEFT$(IN$,ZL-1):PRINT"[157]";:GOTO560
660 IFZ=141THENZ3$=CHR$(-20*(ZL>1)):FORZ=2TOZL:PRINTZ3$;:NEXTZ:GOTO540
670 GOTO560
680 PRINT"    [166][166]":PRINT"    [166][166]":RETURN
690 PRINT"   [166][166]   [166][166]":PRINT"   [166][166]   [166][166]":RETURN
710 PRINT"     [166][166][160][160][160][166][166][160][160][160][166][166]"
720 PRINT"     [166][166]   [166][166]   [166][166]":RETURN
730 PRINT"  [160][166][166][160][160][160][160][166][166][160][160][160][160][166][166][160][160][160][160][166][166]"
740 PRINT"   [166][166][160][160][160][160][166][166][160][160][160][160][166][166][160][160][160][160][166][166]":RETURN
750 PRINT"  [166][166]   [166][166]   [166][166]  [166][166]   [166][166]"
760 PRINT"  [166][166][160][160][160][166][166][160][160][160][166][166][160][160][166][166][160][160][160][166][166]":RETURN
770 PRINT"   [166][166]   [166][166]   [166][166]   [166][166]   [166][166]   [166][166]"
780 PRINT"   [166][166][160][160][160][166][166][160][160][160][166][166][160][160][160][166][166]   [166][166]   [166][166]":RETURN
790 PRINT"  [166][166][160][160][160][166][166][160][160][166][166][160][160][166][166][160][160][160][166][166][160][160][166][166][160][160][166][166]"
800 PRINT"  [166][166][160][160][160][166][166][160][160][166][166][160][160][166][166][160][160][160][166][166][160][160][166][166][160][160][166][166]":RETURN
810 PRINT"   [166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166]  [166][166]  [166][166]  [166][166]"
820 PRINT"   [166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166][160] [166][166]  [166][166]":RETURN
830 PRINT"  [166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166]  [166][166]  [166][166]  [166][166]  [166][166]"
840 PRINT"  [166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166][160] [166][166]  [166][166]  [166][166]":RETURN
850 PRINT" [166][166][160] [166][166]  [166][166]  [166][166]  [166][166]  [166][166]  [166][166]  [166][166]  [166][166]  [166][166]"
860 PRINT" [166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166][160][160][166][166]  [166][166]  [166][166]":RETURN